  {  Petrova Tatjana
     2012 /09/24
     This program works with array.}
program Aboutarray;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 arr=array[0..100] of integer;
var
  c:^arr;

begin
  new(c);
  c^[0]:=1;
  write(c^[0]);
  readln;
  dispose(c);
end.
